home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / athena / moira / patch1 < prev    next >
Encoding:
Text File  |  1990-04-08  |  53.0 KB  |  1,722 lines
  1. This is patch #1 to Moira release 2.2, of Mon Apr  9 22:09:38 EDT 1990
  2.  
  3. BE SURE TO APPLY THIS PATCH WITH
  4.  
  5.    patch -p
  6.  
  7. TO PRESERVE THE DIRECTORY HIERARCHY.
  8.  
  9. The following bugs are fixed:
  10.  
  11. 1. create patchlevel.h
  12. 2. Problem with "make install" on top level directory.
  13. 3. Typecheck filesystem access flags from the database.
  14. 4. Improved error message from the dcm when a generator fails.
  15. 5. Only use optimized malloc with Ingres version 5 on a vax.
  16. 6. The no-host placeholder [NONE] failed to survive the hostname
  17.    canonicalization routine.
  18. 7. Allow mrtest to take a command from the Unix command line.
  19. 8. Improved error reporting for missing Ingres range statements.
  20. 9. Don't report false authentication errors when the database is
  21.    unavailable because of deadlock or timeout.
  22. 10. Don't allow multiple users with the same encrypted ID number.
  23. 11. Make sure the quota information is handled correctly when a
  24.     filesystem type is changed.
  25. 12. Allow the register_user query to work on users in state 6.
  26. 13. Improve authentication error message from blanche.
  27. 14. A number of typos are fixed in error messages in chfn.
  28. 15. If someone started userreg who was in half-enrolled state, he
  29.     would never be successful in registering.
  30. 16. Sometimes userreg would immediately clear the screen after
  31.     printing an error message.
  32. 17. Userreg sometimes incorrectly capitalized someone's middle name.
  33. 18. Userreg couldn't decode kerberos and some Moira errors.
  34. 19. The default path for the script when creating a new service entry
  35.     in moira was wrong.
  36. 20. Allow more of commands to moira client to be specified on the
  37.     command line before being prompted.
  38.  
  39. Be sure to set INGRESVER correctly in include/moira_site.h before
  40. recompiling your sources.
  41.  
  42.  
  43.  
  44. *** /dev/null    Mon Apr  9 17:05:09 1990
  45. --- patchlevel.h    Mon Apr  9 21:02:13 1990
  46. ***************
  47. *** 0 ****
  48. --- 1 ----
  49. + #define PATCHLEVEL 1
  50. *** /site/mar/moira/Makefile    Mon Mar 19 21:45:03 1990
  51. --- Makefile    Fri Mar 30 17:30:25 1990
  52. ***************
  53. *** 1,7 ****
  54.   # Makefile for SMS 2.0
  55.   #
  56.   #    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/RCS/Makefile,v $
  57. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/RCS/Makefile,v 1.13 90/03/19 21:44:56 mar Exp $
  58.   #    $Author: mar $
  59.   #
  60.   # (c) Copyright 1988 by the Massachusetts Institute of Technology.
  61. --- 1,7 ----
  62.   # Makefile for SMS 2.0
  63.   #
  64.   #    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/RCS/Makefile,v $
  65. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/RCS/Makefile,v 1.14 90/03/30 17:30:21 mar Exp $
  66.   #    $Author: mar $
  67.   #
  68.   # (c) Copyright 1988 by the Massachusetts Institute of Technology.
  69. ***************
  70. *** 25,31 ****
  71.           (cd $$i; make ${MFLAGS} all); done
  72.   
  73.   install:
  74. !     if [ ! -d bin ] then; mkdir bin; fi \
  75.       if [ -f /usr/rtingres/bin/eqc ]; then \
  76.           DIRS="${ALLDIRS} ${INSTALLDIRS}" ; \
  77.       else \
  78. --- 25,33 ----
  79.           (cd $$i; make ${MFLAGS} all); done
  80.   
  81.   install:
  82. !     if [ ! -d bin ]; then \
  83. !         mkdir bin ; \
  84. !     fi; \
  85.       if [ -f /usr/rtingres/bin/eqc ]; then \
  86.           DIRS="${ALLDIRS} ${INSTALLDIRS}" ; \
  87.       else \
  88. ***************
  89. *** 32,38 ****
  90.           DIRS="${RTDIRS} ${INSTALLDIRS}" ; \
  91.       fi; \
  92.       for i in $$DIRS; do \
  93. !         (cd $$i; make ${MFLAGS} DESTDIR=${DESTDIR} install); done
  94.   
  95.   world:
  96.       make clean
  97. --- 34,41 ----
  98.           DIRS="${RTDIRS} ${INSTALLDIRS}" ; \
  99.       fi; \
  100.       for i in $$DIRS; do \
  101. !         (cd $$i; make ${MFLAGS} DESTDIR=${DESTDIR} install); \
  102. !     done
  103.   
  104.   world:
  105.       make clean
  106. *** /site/mar/moira/db/newmoira.qc    Fri Mar 23 12:25:10 1990
  107. --- db/newmoira.qc    Fri Apr  6 12:57:25 1990
  108. ***************
  109. *** 1,4 ****
  110. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/db/RCS/newmoira.qc,v 1.13 90/03/23 12:24:27 mar Exp $
  111.    *
  112.    * Creates a new sms database
  113.    *
  114. --- 1,4 ----
  115. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/db/RCS/newmoira.qc,v 1.15 90/04/06 12:57:04 mar Exp $
  116.    *
  117.    * Creates a new sms database
  118.    *
  119. ***************
  120. *** 54,59 ****
  121. --- 54,66 ----
  122.              {"filesys", "TYPE", "NFS"},
  123.              {"filesys", "TYPE", "RVD"},
  124.              {"filesys", "TYPE", "AFS"},
  125. +            {"fs_access_AFS", "TYPE", "w"},
  126. +            {"fs_access_AFS", "TYPE", "n"},
  127. +            {"fs_access_NFS", "TYPE", "r"},
  128. +            {"fs_access_NFS", "TYPE", "n"},
  129. +            {"fs_access_NFS", "TYPE", "w"},
  130. +            {"fs_access_RVD", "TYPE", "r"},
  131. +            {"fs_access_RVD", "TYPE", "x"},
  132.              {"gaus", "TYPE", "LIST"},
  133.              {"gaus", "TYPE", "USER"},
  134.              {"gaus", "TYPE", "RLIST"},
  135. *** /site/mar/moira/dcm/dcm.c    Mon Mar 19 18:52:49 1990
  136. --- dcm/dcm.c    Mon Apr  9 18:42:10 1990
  137. ***************
  138. *** 7,17 ****
  139.    *
  140.    * $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/dcm/RCS/dcm.c,v $
  141.    * $Author: mar $
  142. !  * $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/dcm/RCS/dcm.c,v 1.13 90/03/19 18:52:46 mar Exp $
  143.    */
  144.   
  145.   #ifndef lint
  146. ! static char rcsid_dcm_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/dcm/RCS/dcm.c,v 1.13 90/03/19 18:52:46 mar Exp $";
  147.   #endif lint
  148.   
  149.   #include <stdio.h>
  150. --- 7,17 ----
  151.    *
  152.    * $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/dcm/RCS/dcm.c,v $
  153.    * $Author: mar $
  154. !  * $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/dcm/RCS/dcm.c,v 1.14 90/04/09 18:41:45 mar Exp $
  155.    */
  156.   
  157.   #ifndef lint
  158. ! static char rcsid_dcm_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/dcm/RCS/dcm.c,v 1.14 90/04/09 18:41:45 mar Exp $";
  159.   #endif lint
  160.   
  161.   #include <stdio.h>
  162. ***************
  163. *** 219,225 ****
  164.           waits.w_status = system(dfgen_cmd);
  165.           signal(SIGCHLD, cstat);
  166.           if (waits.w_termsig) {
  167. !             status = MR_TAR_FAIL;
  168.               com_err(whoami, status, " %s exited on signal %d",
  169.                   dfgen_prog, waits.w_termsig);
  170.           } else if (waits.w_retcode) {
  171. --- 219,225 ----
  172.           waits.w_status = system(dfgen_cmd);
  173.           signal(SIGCHLD, cstat);
  174.           if (waits.w_termsig) {
  175. !             status = MR_COREDUMP;
  176.               com_err(whoami, status, " %s exited on signal %d",
  177.                   dfgen_prog, waits.w_termsig);
  178.           } else if (waits.w_retcode) {
  179. *** /site/mar/moira/include/moira_site.h    Sat Mar 17 16:31:18 1990
  180. --- include/moira_site.h    Wed Apr  4 11:30:53 1990
  181. ***************
  182. *** 12,18 ****
  183.    *
  184.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/include/RCS/moira_site.h,v $
  185.    *      $Author: mar $
  186. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/include/RCS/moira_site.h,v 1.17 90/03/17 16:31:12 mar Exp $
  187.    *    
  188.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  189.    *
  190. --- 12,18 ----
  191.    *
  192.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/include/RCS/moira_site.h,v $
  193.    *      $Author: mar $
  194. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/include/RCS/moira_site.h,v 1.18 90/04/04 11:30:27 mar Exp $
  195.    *    
  196.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  197.    *
  198. ***************
  199. *** 37,42 ****
  200. --- 37,44 ----
  201.   /* #define SYSLOG */
  202.   /*   Athena local hacks -- other sites probably don't want this */
  203.   #define ATHENA
  204. + /* Ingres version number */
  205. + #define INGRESVER 5
  206.   
  207.   
  208.   #define NAME 0
  209. *** /site/mar/moira/rpc/mr_et.et    Sat Mar 17 16:37:44 1990
  210. --- rpc/mr_et.et    Mon Apr  9 19:21:20 1990
  211. ***************
  212. *** 1,6 ****
  213.   #    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/mr_et.et,v $
  214.   #    $Author: mar $
  215. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/mr_et.et,v 1.14 90/03/17 16:37:37 mar Exp $
  216.   #
  217.       error_table sms
  218.   
  219. --- 1,6 ----
  220.   #    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/mr_et.et,v $
  221.   #    $Author: mar $
  222. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/mr_et.et,v 1.16 90/04/09 19:21:13 mar Exp $
  223.   #
  224.       error_table sms
  225.   
  226. ***************
  227. *** 200,204 ****
  228. --- 200,210 ----
  229.   
  230.   ec    MR_LISTLOOP,
  231.       "Lists are not allowed to contain themselves as members"
  232. + 
  233. + ec    MR_INGRES_SOFTFAIL,
  234. +     "Temporary database failure, try again"
  235. + 
  236. + ec    MR_COREDUMP,
  237. +     "Subprocess coredumped"
  238.   
  239.       end
  240. *** /site/mar/moira/rpc/fixhost.c    Thu Mar 22 15:27:10 1990
  241. --- rpc/fixhost.c    Thu Apr  5 17:45:22 1990
  242. ***************
  243. *** 1,7 ****
  244.   /*
  245.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/fixhost.c,v $
  246.    *    $Author: mar $
  247. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/fixhost.c,v 1.7 90/03/17 00:35:05 mar Exp $
  248.    *
  249.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  250.    *    For copying and distribution information, please see the file
  251. --- 1,7 ----
  252.   /*
  253.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/fixhost.c,v $
  254.    *    $Author: mar $
  255. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/fixhost.c,v 1.8 90/04/05 17:45:11 mar Exp $
  256.    *
  257.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  258.    *    For copying and distribution information, please see the file
  259. ***************
  260. *** 9,15 ****
  261.    */
  262.   
  263.   #ifndef lint
  264. ! static char *rcsid_fixhost_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/fixhost.c,v 1.7 90/03/17 00:35:05 mar Exp $";
  265.   #endif lint
  266.   
  267.   #include <mit-copyright.h>
  268. --- 9,15 ----
  269.    */
  270.   
  271.   #ifndef lint
  272. ! static char *rcsid_fixhost_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/fixhost.c,v 1.8 90/04/05 17:45:11 mar Exp $";
  273.   #endif lint
  274.   
  275.   #include <mit-copyright.h>
  276. ***************
  277. *** 59,65 ****
  278.       return(strsave(tbuf));
  279.       }
  280.   
  281. !     if (index(host, '*') || index(host, '?'))
  282.         return(host);
  283.   
  284.       hp = gethostbyname(host);
  285. --- 59,65 ----
  286.       return(strsave(tbuf));
  287.       }
  288.   
  289. !     if (index(host, '*') || index(host, '?') || index(host, '['))
  290.         return(host);
  291.   
  292.       hp = gethostbyname(host);
  293. *** /site/mar/moira/test/test.c    Sat Mar 17 17:26:08 1990
  294. --- test/test.c    Mon Apr  9 15:02:43 1990
  295. ***************
  296. *** 1,7 ****
  297.   /*
  298.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/test/RCS/test.c,v $
  299.    *    $Author: mar $
  300. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/test/RCS/test.c,v 1.19 90/03/17 17:26:01 mar Exp $
  301.    *
  302.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  303.    *    For copying and distribution information, please see the file
  304. --- 1,7 ----
  305.   /*
  306.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/test/RCS/test.c,v $
  307.    *    $Author: mar $
  308. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/test/RCS/test.c,v 1.20 90/04/09 15:02:25 mar Exp $
  309.    *
  310.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  311.    *    For copying and distribution information, please see the file
  312. ***************
  313. *** 10,16 ****
  314.    */
  315.   
  316.   #ifndef lint
  317. ! static char *rcsid_test_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/test/RCS/test.c,v 1.19 90/03/17 17:26:01 mar Exp $";
  318.   #endif lint
  319.   
  320.   #include <mit-copyright.h>
  321. --- 10,16 ----
  322.    */
  323.   
  324.   #ifndef lint
  325. ! static char *rcsid_test_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/test/RCS/test.c,v 1.20 90/04/09 15:02:25 mar Exp $";
  326.   #endif lint
  327.   
  328.   #include <mit-copyright.h>
  329. ***************
  330. *** 49,54 ****
  331. --- 49,58 ----
  332.       if (status != 0) {
  333.           com_err(whoami, status, "Unable to create invocation");
  334.           exit(1);
  335. +     }
  336. +     if (argc > 1) {
  337. +         argv++;
  338. +         ss_execute_command(ss, argv);
  339.       }
  340.       ss_listen(ss, &status);
  341.       if (status != 0) {
  342. *** /site/mar/moira/server/mr_smalloc.c    Mon Mar 19 15:46:22 1990
  343. --- server/mr_smalloc.c    Fri Apr  6 17:09:35 1990
  344. ***************
  345. *** 148,153 ****
  346. --- 148,154 ----
  347.   #include <sys/time.h>
  348.   #include <sys/resource.h>
  349.   #endif /* BSD42 */
  350. + #include <moira_site.h>
  351.   
  352.   #ifdef scribblecheck
  353.   #define rcheck
  354. ***************
  355. *** 283,291 ****
  356. --- 284,298 ----
  357.   {
  358.     return(((struct mhead *)a_block-1)->mh_nbytes);
  359.   }
  360. + 
  361. + #if INGRESVER == 5 && defined(vax)
  362. + /* This is here to pull in our private version of meinitlst.o
  363. +  * so that we don't try to get the buggy Ingres 5.0 one.
  364. +  */
  365.   extern int MEinitLists();
  366.   
  367.   static int (*foo)() = MEinitLists;
  368. + #endif
  369.       
  370.   
  371.   /****************************************************************
  372. ***************
  373. *** 361,376 ****
  374.     nblks = 1;
  375.     if ((siz = nu) < 8)
  376.       nblks = 1 << ((siz = 8) - nu);
  377. ! #ifdef notdef
  378. !   if ((cp = sbrk (1 << (siz + 3))) == (char *) -1)
  379. !     return;            /* no more room! */
  380. ! #endif notdef
  381.     {
  382. !      char *tcp;      
  383. !      if (MEalloc(1, 1 << (siz+3), &tcp))
  384. !        return;            /* No more room! */
  385. !      cp = tcp;
  386.     }
  387.     if ((int) cp & 7)
  388.       {        /* shouldn't happen, but just in case */
  389.         cp = (char *) (((int) cp + 8) & ~7);
  390. --- 368,384 ----
  391.     nblks = 1;
  392.     if ((siz = nu) < 8)
  393.       nblks = 1 << ((siz = 8) - nu);
  394. ! #if INGRESVER == 5 && defined(vax)
  395.     {
  396. !       char *tcp;      
  397. !       if (MEalloc(1, 1 << (siz+3), &tcp))
  398. !     return;            /* No more room! */
  399. !       cp = tcp;
  400.     }
  401. + #else /* INGRESVER == 5 && defined(vax) */
  402. +   if ((cp = sbrk (1 << (siz + 3))) == (char *) -1)
  403. +     return;            /* no more room! */
  404. + #endif /* INGRESVER == 5 && defined(vax) */
  405.     if ((int) cp & 7)
  406.       {        /* shouldn't happen, but just in case */
  407.         cp = (char *) (((int) cp + 8) & ~7);
  408. *** /site/mar/moira/server/meinitlst.c    Mon Mar 19 15:44:47 1990
  409. --- server/meinitlst.c    Fri Apr  6 17:10:19 1990
  410. ***************
  411. *** 1,7 ****
  412.   /*
  413.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/meinitlst.c,v $
  414.    *    $Author: mar $
  415. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/meinitlst.c,v 1.2 88/09/13 17:40:40 mar Exp $
  416.    *
  417.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  418.    *    For copying and distribution information, please see the file
  419. --- 1,7 ----
  420.   /*
  421.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/meinitlst.c,v $
  422.    *    $Author: mar $
  423. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/meinitlst.c,v 1.3 90/04/04 18:28:50 mar Exp $
  424.    *
  425.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  426.    *    For copying and distribution information, please see the file
  427. ***************
  428. *** 9,25 ****
  429.    *
  430.    *     This code is a reverse-engineered version of
  431.    *     ~rtingres/lib/compatlib(meinitlst.o) with a better malloc and
  432. !  *     free.
  433.    */
  434.   
  435.   #ifndef lint
  436. ! static char *rcsid_meinitlst_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/meinitlst.c,v 1.2 88/09/13 17:40:40 mar Exp $";
  437.   #endif lint
  438.   
  439.   #include <mit-copyright.h>
  440.   #include <sys/errno.h>
  441.   #include <sys/types.h>
  442.   
  443.   /*
  444.    * entry points:
  445.    *     MEinitLists()
  446. --- 9,28 ----
  447.    *
  448.    *     This code is a reverse-engineered version of
  449.    *     ~rtingres/lib/compatlib(meinitlst.o) with a better malloc and
  450. !  *     free.  It only works with Ingres version 5 on the vax.
  451.    */
  452.   
  453.   #ifndef lint
  454. ! static char *rcsid_meinitlst_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/meinitlst.c,v 1.3 90/04/04 18:28:50 mar Exp $";
  455.   #endif lint
  456.   
  457.   #include <mit-copyright.h>
  458.   #include <sys/errno.h>
  459.   #include <sys/types.h>
  460. + #include <moira_site.h>
  461.   
  462. + #if INGRESVER == 5 && defined(vax)
  463. + 
  464.   /*
  465.    * entry points:
  466.    *     MEinitLists()
  467. ***************
  468. *** 87,94 ****
  469.       (void) free(adr);
  470.       return new_addr;
  471.   }
  472. ! #endif notdef
  473. ! #ifdef notdef
  474.   valloc(size)
  475.       int size;
  476.   {
  477. --- 90,96 ----
  478.       (void) free(adr);
  479.       return new_addr;
  480.   }
  481. ! 
  482.   valloc(size)
  483.       int size;
  484.   {
  485. ***************
  486. *** 167,169 ****
  487. --- 169,172 ----
  488.   _memalign+e3:   ret
  489.   */
  490.   #endif notdef
  491. + #endif /* INGRESVER == 5 && defined(vax) */
  492. *** /site/mar/moira/server/Makefile    Mon Mar 19 20:51:28 1990
  493. --- server/Makefile    Mon Apr  9 12:38:48 1990
  494. ***************
  495. *** 1,6 ****
  496.   #    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/Makefile,v $
  497.   #    $Author: mar $
  498. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/Makefile,v 1.16 90/03/19 20:51:19 mar Exp $
  499.   #
  500.   
  501.   CFILES = startmoira.c mr_main.c mr_sauth.c mr_scall.c \
  502. --- 1,6 ----
  503.   #    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/Makefile,v $
  504.   #    $Author: mar $
  505. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/Makefile,v 1.17 90/04/09 12:38:30 mar Exp $
  506.   #
  507.   
  508.   CFILES = startmoira.c mr_main.c mr_sauth.c mr_scall.c \
  509. ***************
  510. *** 13,24 ****
  511.       mr_smalloc.o meinitlst.o increment.o cache.o
  512.   
  513.   GLUOBJS=mr_glue.o qrtn.o queries2.o qsupport.o qsubs.o \
  514. !     ../rpc/mr_et.o mr_srvdata.o mr_smalloc.o meinitlst.o \
  515.       ../rpc/krb_et.o mr_util.o increment.o cache.o
  516.   
  517.   GLUPOBJS=mr_glue.o qrtn.o queries2.o qsupport.o qsubs.o \
  518. !     ../../rpc/mr_et.o mr_srvdata.o mr_smalloc.o meinitlst.o \
  519. !     ../../rpc/krb_et.o mr_util.o increment.o cache.o
  520.   
  521.   
  522.   LIBS=../rpc/libmoira.a ../gdb/libgdb.a 
  523. --- 13,25 ----
  524.       mr_smalloc.o meinitlst.o increment.o cache.o
  525.   
  526.   GLUOBJS=mr_glue.o qrtn.o queries2.o qsupport.o qsubs.o \
  527. !     ../rpc/mr_et.o mr_srvdata.o mr_smalloc.o meinitlst.o mr_sbrk.o \
  528.       ../rpc/krb_et.o mr_util.o increment.o cache.o
  529.   
  530.   GLUPOBJS=mr_glue.o qrtn.o queries2.o qsupport.o qsubs.o \
  531. !     ../../rpc/profiled/mr_et.o mr_srvdata.o mr_smalloc.o \
  532. !     meinitlst.o mr_sbrk.o ../../rpc/profiled/krb_et.o mr_util.o \
  533. !     increment.o cache.o 
  534.   
  535.   
  536.   LIBS=../rpc/libmoira.a ../gdb/libgdb.a 
  537. *** /site/mar/moira/server/qrtn.qc    Mon Mar 19 15:42:32 1990
  538. --- server/qrtn.qc    Mon Apr  9 12:39:29 1990
  539. ***************
  540. *** 1,7 ****
  541.   /*
  542.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qrtn.qc,v $
  543.    *    $Author: mar $
  544. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qrtn.qc,v 1.39 90/03/19 15:42:27 mar Exp $
  545.    *
  546.    *    Copyright (C) 1987, 1988 by the Massachusetts Institute of Technology
  547.    *    For copying and distribution information, please see the file
  548. --- 1,7 ----
  549.   /*
  550.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qrtn.qc,v $
  551.    *    $Author: mar $
  552. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qrtn.qc,v 1.42 90/04/09 12:39:09 mar Exp $
  553.    *
  554.    *    Copyright (C) 1987, 1988 by the Massachusetts Institute of Technology
  555.    *    For copying and distribution information, please see the file
  556. ***************
  557. *** 10,16 ****
  558.    */
  559.   
  560.   #ifndef lint
  561. ! static char *rcsid_qrtn_qc = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qrtn.qc,v 1.39 90/03/19 15:42:27 mar Exp $";
  562.   #endif lint
  563.   
  564.   #include <mit-copyright.h>
  565. --- 10,16 ----
  566.    */
  567.   
  568.   #ifndef lint
  569. ! static char *rcsid_qrtn_qc = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qrtn.qc,v 1.42 90/04/09 12:39:09 mar Exp $";
  570.   #endif lint
  571.   
  572.   #include <mit-copyright.h>
  573. ***************
  574. *** 29,34 ****
  575. --- 29,35 ----
  576.   #define INGRES_BAD_DATE 4302
  577.   #define INGRES_DEADLOCK 4700
  578.   #define INGRES_TIMEOUT 4702
  579. + #define INGRES_NO_RANGE 2109
  580.   
  581.   /*
  582.    * ingerr: (supposedly) called when Ingres indicates an error.
  583. ***************
  584. *** 56,61 ****
  585. --- 57,66 ----
  586.       mr_errcode = MR_BUSY;
  587.       com_err(whoami, 0, "timed out getting lock");
  588.       break;
  589. +     case INGRES_NO_RANGE:
  590. +     mr_errcode = MR_INGRES_SOFTFAIL;
  591. +     com_err(whoami, 0, "INGRES missing range statement");
  592. +     break;
  593.       default:
  594.       mr_errcode = MR_INGRES_ERR;
  595.       com_err(whoami, MR_INGRES_ERR, " code %d\n", *num);
  596. ***************
  597. *** 798,804 ****
  598.    * owns.  Sets the kerberos ID and user ID.
  599.    */
  600.   
  601. ! set_krb_mapping(name, login, ok, kid, uid)
  602.   char *name;
  603.   char *login;
  604.   int ok;
  605. --- 803,809 ----
  606.    * owns.  Sets the kerberos ID and user ID.
  607.    */
  608.   
  609. ! int set_krb_mapping(name, login, ok, kid, uid)
  610.   char *name;
  611.   char *login;
  612.   int ok;
  613. ***************
  614. *** 815,825 ****
  615.   ##  repeat retrieve (u_id = krbmap.#users_id, k_id = krbmap.#string_id)
  616.   ##    where krbmap.string_id = strings.string_id and strings.string = @krbname
  617.   ##  inquire_equel (rowcount = "rowcount")
  618.       
  619.       if (rowcount == 1) {
  620.       *kid = -k_id;
  621.       *uid = u_id;
  622. !     return;
  623.       }
  624.   
  625.       if (name_to_id(name, "STRINGS", &k_id) == MR_SUCCESS)
  626. --- 820,831 ----
  627.   ##  repeat retrieve (u_id = krbmap.#users_id, k_id = krbmap.#string_id)
  628.   ##    where krbmap.string_id = strings.string_id and strings.string = @krbname
  629.   ##  inquire_equel (rowcount = "rowcount")
  630. +     if (ingres_errno) return(mr_errcode);
  631.       
  632.       if (rowcount == 1) {
  633.       *kid = -k_id;
  634.       *uid = u_id;
  635. !     return(MR_SUCCESS);
  636.       }
  637.   
  638.       if (name_to_id(name, "STRINGS", &k_id) == MR_SUCCESS)
  639. ***************
  640. *** 827,833 ****
  641.   
  642.       if (!ok) {
  643.       *uid = *kid;
  644. !     return;
  645.       }
  646.   
  647.       if (name_to_id(login, "USERS", uid) != MR_SUCCESS)
  648. --- 833,839 ----
  649.   
  650.       if (!ok) {
  651.       *uid = *kid;
  652. !     return(MR_SUCCESS);
  653.       }
  654.   
  655.       if (name_to_id(login, "USERS", uid) != MR_SUCCESS)
  656. ***************
  657. *** 835,840 ****
  658. --- 841,848 ----
  659.   
  660.       if (*kid == 0)
  661.         *kid = *uid;
  662. +     if (ingres_errno) return(mr_errcode);
  663. +     return(MR_SUCCESS);
  664.   ##}
  665.   
  666.   
  667. *** /site/mar/moira/server/qsupport.qc    Mon Mar 19 15:43:04 1990
  668. --- server/qsupport.qc    Mon Apr  9 21:49:04 1990
  669. ***************
  670. *** 1,7 ****
  671.   /*
  672.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qsupport.qc,v $
  673.    *    $Author: mar $
  674. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qsupport.qc,v 1.49 90/03/19 15:42:34 mar Exp $
  675.    *
  676.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  677.    *    For copying and distribution information, please see the file
  678. --- 1,7 ----
  679.   /*
  680.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qsupport.qc,v $
  681.    *    $Author: mar $
  682. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qsupport.qc,v 1.52 90/04/09 19:23:04 mar Exp $
  683.    *
  684.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  685.    *    For copying and distribution information, please see the file
  686. ***************
  687. *** 10,16 ****
  688.    */
  689.   
  690.   #ifndef lint
  691. ! static char *rcsid_qsupport_qc = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qsupport.qc,v 1.49 90/03/19 15:42:34 mar Exp $";
  692.   #endif lint
  693.   
  694.   #include <mit-copyright.h>
  695. --- 10,16 ----
  696.    */
  697.   
  698.   #ifndef lint
  699. ! static char *rcsid_qsupport_qc = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/server/RCS/qsupport.qc,v 1.52 90/04/09 19:23:04 mar Exp $";
  700.   #endif lint
  701.   
  702.   #include <mit-copyright.h>
  703. ***************
  704. *** 329,335 ****
  705. --- 329,341 ----
  706.       client *cl;
  707.   ##{
  708.   ##  int nuid, rowcount;
  709. + ##  char *mit_id;
  710.   
  711. +     mit_id = argv[U_MITID];
  712. + ##  retrieve (rowcount = any(u.#mit_id where u.#mit_id = mit_id))
  713. +     if (ingres_errno) return(mr_errcode);
  714. +     if (rowcount) return(MR_EXISTS);
  715. + 
  716.       if (!strcmp(argv[1], UNIQUE_UID) || atoi(argv[1]) == -1) {
  717.       if (set_next_object_id("uid", "users"))
  718.         return(MR_INGRES_ERR);
  719. ***************
  720. *** 660,670 ****
  721.   setup_afil(q, argv)
  722.       struct query *q;
  723.       char *argv[];
  724. ! {
  725. !     char *type;
  726.       int mach_id;
  727. !     char *name;
  728. !     char *access;  
  729.   
  730.       type = argv[1];
  731.       mach_id = *(int *)argv[2];
  732. --- 666,676 ----
  733.   setup_afil(q, argv)
  734.       struct query *q;
  735.       char *argv[];
  736. ! ##{
  737. !     char *type, *name;
  738.       int mach_id;
  739. ! ##  int ok;
  740. ! ##  char ftype[32], *access;
  741.   
  742.       type = argv[1];
  743.       mach_id = *(int *)argv[2];
  744. ***************
  745. *** 672,682 ****
  746.       access = argv[5];
  747.       var_phys_id = 0;
  748.   
  749.       if (!strcmp(type, "NFS"))
  750.       return (check_nfs(mach_id, name, access));
  751.       else
  752.       return(MR_SUCCESS);
  753. ! }
  754.   
  755.   
  756.   /* Verify the arguments, depending on the FStype.  Also, if this is an
  757. --- 678,694 ----
  758.       access = argv[5];
  759.       var_phys_id = 0;
  760.   
  761. +     sprintf(ftype, "fs_access_%s", type);
  762. + ##  retrieve (ok = any(alias.trans where alias.name = ftype and
  763. + ##                 alias.type = "TYPE" and alias.trans = access))
  764. +     if (ingres_errno) return(mr_errcode);
  765. +     if (ok == 0) return(MR_FILESYS_ACCESS);
  766. + 
  767.       if (!strcmp(type, "NFS"))
  768.       return (check_nfs(mach_id, name, access));
  769.       else
  770.       return(MR_SUCCESS);
  771. ! ##}
  772.   
  773.   
  774.   /* Verify the arguments, depending on the FStype.  Also, if this is an
  775. ***************
  776. *** 684,696 ****
  777.    * the new phys_id.
  778.    */
  779.   
  780. ! setup_ufil(q, argv)
  781.       struct query *q;
  782.       char *argv[];
  783.   ##{
  784.       int mach_id, status;
  785. !     char *type, *name, *access;  
  786. ! ##  int fid, total;
  787.   
  788.       type = argv[2];
  789.       mach_id = *(int *)argv[3];
  790. --- 696,710 ----
  791.    * the new phys_id.
  792.    */
  793.   
  794. ! setup_ufil(q, argv, cl)
  795.       struct query *q;
  796.       char *argv[];
  797. +     client *cl;
  798.   ##{
  799.       int mach_id, status;
  800. !     char *type, *name;  
  801. ! ##  int fid, total, who;
  802. ! ##  char *entity, ftype[32], *access;
  803.   
  804.       type = argv[2];
  805.       mach_id = *(int *)argv[3];
  806. ***************
  807. *** 698,704 ****
  808. --- 712,726 ----
  809.       access = argv[6];
  810.       var_phys_id = 0;
  811.       fid = *(int *)argv[0];
  812. +     who = cl->client_id;
  813. +     entity = cl->entity;
  814.   
  815. +     sprintf(ftype, "fs_access_%s", type);
  816. + ##  retrieve (total = any(alias.trans where alias.name = ftype and
  817. + ##                 alias.type = "TYPE" and alias.trans = access))
  818. +     if (ingres_errno) return(mr_errcode);
  819. +     if (total == 0) return(MR_FILESYS_ACCESS);
  820. + 
  821.       if (!strcmp(type, "NFS")) {
  822.       status = check_nfs(mach_id, name, access);
  823.   ##    replace nfsquota (phys_id = var_phys_id) where nfsquota.filsys_id = fid
  824. ***************
  825. *** 706,718 ****
  826.       return(status);
  827.       } else if (!strcmp(type, "AFS")) {
  828.       total = 0;
  829. ! ##    retrieve (total = sum(nfsquota.quota where nfsquota.filsys_id = fid))
  830.       if (ingres_errno) return(mr_errcode);
  831.       if (total != 0) {
  832.   ##        delete nfsquota where nfsquota.filsys_id = fid
  833.           if (ingres_errno) return(mr_errcode);
  834.   ##        append nfsquota (quota = total, filsys_id = fid,
  835. ! ##                 phys_id = 0, users_id = 0)
  836.           if (ingres_errno) return(mr_errcode);
  837.       }
  838.       } else {
  839. --- 728,742 ----
  840.       return(status);
  841.       } else if (!strcmp(type, "AFS")) {
  842.       total = 0;
  843. ! ##    retrieve (total = sum(nfsquota.quota where nfsquota.filsys_id = fid
  844. ! ##                  and nfsquota.phys_id != 0))
  845.       if (ingres_errno) return(mr_errcode);
  846.       if (total != 0) {
  847.   ##        delete nfsquota where nfsquota.filsys_id = fid
  848.           if (ingres_errno) return(mr_errcode);
  849.   ##        append nfsquota (quota = total, filsys_id = fid,
  850. ! ##                 phys_id = 0, users_id = 0,
  851. ! ##                 modtime = "now", modby = who, modwith = entity)
  852.           if (ingres_errno) return(mr_errcode);
  853.       }
  854.       } else {
  855. ***************
  856. *** 740,749 ****
  857.       register char *cp1;
  858.       register char *cp2;
  859.   
  860. -     caccess = (isupper(*access)) ? tolower(*access) : *access;
  861. -     if (caccess != 'r' && caccess != 'w' && caccess != 'n')
  862. -       return(MR_FILESYS_ACCESS);
  863. - 
  864.       status = MR_NFS;
  865.   ##  range of np is nfsphys
  866.   ##  repeat retrieve (var_phys_id = np.#nfsphys_id, dir = trim(np.#dir))
  867. --- 764,769 ----
  868. ***************
  869. *** 2488,2494 ****
  870.   
  871.       /* find user */
  872.   ##  repeat retrieve (users_id = u.#users_id)
  873. ! ##    where u.#uid = @uid and (u.status = 0 or u.status = 5)
  874.   ##  inquire_equel(rowcount = "rowcount");
  875.       if (rowcount == 0)
  876.         return(MR_NO_MATCH);
  877. --- 2508,2514 ----
  878.   
  879.       /* find user */
  880.   ##  repeat retrieve (users_id = u.#users_id)
  881. ! ##    where u.#uid = @uid and (u.status = 0 or u.status = 5 or u.status = 6)
  882.   ##  inquire_equel(rowcount = "rowcount");
  883.       if (rowcount == 0)
  884.         return(MR_NO_MATCH);
  885. *** /site/mar/moira/clients/blanche/blanche.c    Sat Mar 17 16:48:55 1990
  886. --- clients/blanche/blanche.c    Fri Apr  6 17:01:34 1990
  887. ***************
  888. *** 1,4 ****
  889. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/blanche/RCS/blanche.c,v 1.12 90/03/17 16:48:52 mar Exp $
  890.    *
  891.    * Command line oriented Moira List tool.
  892.    *
  893. --- 1,4 ----
  894. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/blanche/RCS/blanche.c,v 1.13 90/04/06 17:01:20 mar Exp $
  895.    *
  896.    * Command line oriented Moira List tool.
  897.    *
  898. ***************
  899. *** 21,27 ****
  900.   #include <moira_site.h>
  901.   
  902.   #ifndef LINT
  903. ! static char blanche_rcsid[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/blanche/RCS/blanche.c,v 1.12 90/03/17 16:48:52 mar Exp $";
  904.   #endif
  905.   
  906.   
  907. --- 21,27 ----
  908.   #include <moira_site.h>
  909.   
  910.   #ifndef LINT
  911. ! static char blanche_rcsid[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/blanche/RCS/blanche.c,v 1.13 90/04/06 17:01:20 mar Exp $";
  912.   #endif
  913.   
  914.   
  915. ***************
  916. *** 182,191 ****
  917.       }
  918.   
  919.       if (!noauth && (status = mr_auth("blanche"))) {
  920. !     com_err(whoami, status, "unable to authenticate to Moira");
  921. !     com_err(whoami, 0,
  922. !         " Try the -noauth flag if you don't need authentication");
  923. !     exit(2);
  924.       }
  925.   
  926.       /* display list info if requested to */
  927. --- 182,195 ----
  928.       }
  929.   
  930.       if (!noauth && (status = mr_auth("blanche"))) {
  931. !     if (status == MR_USER_AUTH)
  932. !       com_err(whoami, status, "");
  933. !     else {
  934. !         com_err(whoami, status, "unable to authenticate to Moira");
  935. !         com_err(whoami, 0,
  936. !             " Try the -noauth flag if you don't need authentication");
  937. !         exit(2);
  938. !     }
  939.       }
  940.   
  941.       /* display list info if requested to */
  942. *** /site/mar/moira/clients/passwd/chfn.c    Sat Mar 17 17:19:08 1990
  943. --- clients/passwd/chfn.c    Mon Mar 26 05:42:35 1990
  944. ***************
  945. *** 3,15 ****
  946.    * and distribution information, see the file "mit-copyright.h". 
  947.    *
  948.    * $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/passwd/RCS/chfn.c,v $
  949. !  * $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/passwd/RCS/chfn.c,v 1.8 90/03/17 17:19:04 mar Exp $
  950. !  * $Author: mar $
  951.    *
  952.    */
  953.   
  954.   #ifndef lint
  955. ! static char *rcsid_chfn_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/passwd/RCS/chfn.c,v 1.8 90/03/17 17:19:04 mar Exp $";
  956.   #endif not lint
  957.   
  958.   /*
  959. --- 3,15 ----
  960.    * and distribution information, see the file "mit-copyright.h". 
  961.    *
  962.    * $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/passwd/RCS/chfn.c,v $
  963. !  * $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/passwd/RCS/chfn.c,v 1.9 90/03/26 05:42:13 marc Exp $
  964. !  * $Author: marc $
  965.    *
  966.    */
  967.   
  968.   #ifndef lint
  969. ! static char *rcsid_chfn_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/passwd/RCS/chfn.c,v 1.9 90/03/26 05:42:13 marc Exp $";
  970.   #endif not lint
  971.   
  972.   /*
  973. ***************
  974. *** 129,141 ****
  975.   
  976.       status = mr_connect(NULL);
  977.       if (status) {
  978. !     com_err(whoami, status, " while connecting to Moira");
  979.       exit(1);
  980.       }
  981.   
  982.       status = mr_motd(&motd);
  983.       if (status) {
  984. !         com_err(whoami, status, " unable to check server status");
  985.       leave(1);
  986.       }
  987.       if (motd) {
  988. --- 129,141 ----
  989.   
  990.       status = mr_connect(NULL);
  991.       if (status) {
  992. !     com_err(whoami, status, "while connecting to Moira");
  993.       exit(1);
  994.       }
  995.   
  996.       status = mr_motd(&motd);
  997.       if (status) {
  998. !         com_err(whoami, status, "unable to check server status");
  999.       leave(1);
  1000.       }
  1001.       if (motd) {
  1002. ***************
  1003. *** 146,152 ****
  1004.       status = mr_auth("chfn");    /* Don't use argv[0] - too easy to fake */
  1005.       if (status) {
  1006.       com_err(whoami, status, 
  1007. !         " while authenticating -- run \"kinit\" and try again.");
  1008.       leave(1);
  1009.       }
  1010.   
  1011. --- 146,152 ----
  1012.       status = mr_auth("chfn");    /* Don't use argv[0] - too easy to fake */
  1013.       if (status) {
  1014.       com_err(whoami, status, 
  1015. !         "while authenticating -- run \"kinit\" and try again.");
  1016.       leave(1);
  1017.       }
  1018.   
  1019. ***************
  1020. *** 171,177 ****
  1021.       if (status = mr_query("get_finger_by_login", q_argc, q_argv, 
  1022.                  get_user_info, (char *) &old_info))
  1023.       {
  1024. !     com_err(whoami, status, " while getting user information.");
  1025.       leave(2);
  1026.       }
  1027.   
  1028. --- 171,177 ----
  1029.       if (status = mr_query("get_finger_by_login", q_argc, q_argv, 
  1030.                  get_user_info, (char *) &old_info))
  1031.       {
  1032. !     com_err(whoami, status, "while getting user information.");
  1033.       leave(2);
  1034.       }
  1035.   
  1036. ***************
  1037. *** 197,203 ****
  1038.       if (status = mr_query("update_finger_by_login", q_argc, q_argv,
  1039.                  scream, (char *)NULL))
  1040.       {
  1041. !     com_err(whoami, status, " while updating finger information.");
  1042.       leave(1);
  1043.       }
  1044.   
  1045. --- 197,203 ----
  1046.       if (status = mr_query("update_finger_by_login", q_argc, q_argv,
  1047.                  scream, (char *)NULL))
  1048.       {
  1049. !     com_err(whoami, status, "while updating finger information.");
  1050.       leave(1);
  1051.       }
  1052.   
  1053. ***************
  1054. *** 334,340 ****
  1055.       GETINFO("Office address (Exs: E40-342 or 2-108)", 
  1056.           office_address, FALSE);
  1057.       GETINFO("Office phone (Ex: 3-1300)", office_phone, TRUE);
  1058. !     GETINFO("MIT department (Exs: 9, Biology, Information Services", 
  1059.           mit_department, FALSE);
  1060.       GETINFO("MIT year (Exs: 1989, '91, Faculty, Grad)", mit_year, FALSE);
  1061.   }
  1062. --- 334,340 ----
  1063.       GETINFO("Office address (Exs: E40-342 or 2-108)", 
  1064.           office_address, FALSE);
  1065.       GETINFO("Office phone (Ex: 3-1300)", office_phone, TRUE);
  1066. !     GETINFO("MIT department (Exs: 9, Biology, Information Services)", 
  1067.           mit_department, FALSE);
  1068.       GETINFO("MIT year (Exs: 1989, '91, Faculty, Grad)", mit_year, FALSE);
  1069.   }
  1070. *** /site/mar/moira/clients/userreg/userreg.c    Thu Mar 15 14:31:16 1990
  1071. --- clients/userreg/userreg.c    Mon Apr  9 19:09:01 1990
  1072. ***************
  1073. *** 2,8 ****
  1074.    * $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/userreg.c,v $
  1075.    * $Author: mar $
  1076.    * $Locker:  $
  1077. !  * $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/userreg.c,v 1.17 90/03/15 14:31:01 mar Exp $ 
  1078.    *
  1079.    *  (c) Copyright 1988 by the Massachusetts Institute of Technology.
  1080.    *  For copying and distribution information, please see the file
  1081. --- 2,8 ----
  1082.    * $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/userreg.c,v $
  1083.    * $Author: mar $
  1084.    * $Locker:  $
  1085. !  * $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/userreg.c,v 1.20 90/04/09 19:08:33 mar Exp $ 
  1086.    *
  1087.    *  (c) Copyright 1988 by the Massachusetts Institute of Technology.
  1088.    *  For copying and distribution information, please see the file
  1089. ***************
  1090. *** 10,16 ****
  1091.    */
  1092.   
  1093.   #ifndef lint
  1094. ! static char    *rcsid_userreg_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/userreg.c,v 1.17 90/03/15 14:31:01 mar Exp $";
  1095.   #endif    lint
  1096.   
  1097.   #include <mit-copyright.h>
  1098. --- 10,16 ----
  1099.    */
  1100.   
  1101.   #ifndef lint
  1102. ! static char    *rcsid_userreg_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/userreg.c,v 1.20 90/04/09 19:08:33 mar Exp $";
  1103.   #endif    lint
  1104.   
  1105.   #include <mit-copyright.h>
  1106. ***************
  1107. *** 236,243 ****
  1108.           user_has_login = 0;
  1109.           sleep(1);
  1110.           return 0;
  1111. -     case UREG_NO_PASSWD_YET:
  1112.       case UREG_HALF_ENROLLED:
  1113.           user_is_valid = 1;
  1114.           user_has_login = 1;
  1115.           display_text_line ("You have chosen a login name, but you have not yet chosen a password.");
  1116. --- 236,245 ----
  1117.           user_has_login = 0;
  1118.           sleep(1);
  1119.           return 0;
  1120.       case UREG_HALF_ENROLLED:
  1121. +         enrollment = 1;
  1122. +         /* fall through to: */
  1123. +     case UREG_NO_PASSWD_YET:
  1124.           user_is_valid = 1;
  1125.           user_has_login = 1;
  1126.           display_text_line ("You have chosen a login name, but you have not yet chosen a password.");
  1127. ***************
  1128. *** 299,304 ****
  1129. --- 301,310 ----
  1130.       case ETIMEDOUT:
  1131.       case UREG_MISC_ERROR:
  1132.           display_text(NETWORK_DOWN);
  1133. +         display_text_line(" ");
  1134. +         sprintf(line, "The specific error was: %s",
  1135. +             error_message(result));
  1136. +         display_text_line(line);
  1137.           wait_for_user();
  1138.           return (0);
  1139.           
  1140. ***************
  1141. *** 587,592 ****
  1142. --- 593,599 ----
  1143.   do_replace()
  1144.   {
  1145.       int status;
  1146. +     char buf[100];
  1147.       
  1148.       /*
  1149.        * replaces a user in the database. If there is an error, it informs
  1150. ***************
  1151. *** 603,608 ****
  1152. --- 610,620 ----
  1153.       timer_on();
  1154.       if (status) {
  1155.           display_text (NETWORK_DOWN);
  1156. +         display_text_line(" ");
  1157. +         sprintf(buf, "The specific error was: %s",
  1158. +             error_message(status));
  1159. +         display_text_line(buf);
  1160. +         wait_for_user();
  1161.           return (-1);
  1162.       } else return 0;
  1163.   }
  1164. ***************
  1165. *** 663,670 ****
  1166.           while (p2 >= cp && isspace(*p2)) *(--p2) = '\0';
  1167.       }
  1168.       /* Make it capitalized */
  1169. !     for (p2=cp; *p2; p2++) {
  1170. !         if (isupper(*p2)) *p2 = tolower(*p2);
  1171. !     }
  1172. !     if (islower(*cp)) *cp=toupper(*cp);
  1173.   }
  1174. --- 675,679 ----
  1175.           while (p2 >= cp && isspace(*p2)) *(--p2) = '\0';
  1176.       }
  1177.       /* Make it capitalized */
  1178. !     FixCase(cp);
  1179.   }
  1180. *** /site/mar/moira/clients/userreg/reg_stubs.c    Sat Mar 17 17:24:37 1990
  1181. --- clients/userreg/reg_stubs.c    Mon Apr  9 14:25:27 1990
  1182. ***************
  1183. *** 1,7 ****
  1184.   /*
  1185.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/reg_stubs.c,v $
  1186.    *    $Author: mar $
  1187. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/reg_stubs.c,v 1.15 90/03/17 17:24:31 mar Exp $
  1188.    *
  1189.    *  (c) Copyright 1988 by the Massachusetts Institute of Technology.
  1190.    *  For copying and distribution information, please see the file
  1191. --- 1,7 ----
  1192.   /*
  1193.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/reg_stubs.c,v $
  1194.    *    $Author: mar $
  1195. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/reg_stubs.c,v 1.16 90/04/09 14:25:16 mar Exp $
  1196.    *
  1197.    *  (c) Copyright 1988 by the Massachusetts Institute of Technology.
  1198.    *  For copying and distribution information, please see the file
  1199. ***************
  1200. *** 9,15 ****
  1201.    */
  1202.   
  1203.   #ifndef lint
  1204. ! static char *rcsid_reg_stubs_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/reg_stubs.c,v 1.15 90/03/17 17:24:31 mar Exp $";
  1205.   #endif lint
  1206.   
  1207.   #include <mit-copyright.h>
  1208. --- 9,15 ----
  1209.    */
  1210.   
  1211.   #ifndef lint
  1212. ! static char *rcsid_reg_stubs_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/userreg/RCS/reg_stubs.c,v 1.16 90/04/09 14:25:16 mar Exp $";
  1213.   #endif lint
  1214.   
  1215.   #include <mit-copyright.h>
  1216. ***************
  1217. *** 42,48 ****
  1218.       extern char *getenv(), **hes_resolve();
  1219.       
  1220.       initialize_ureg_error_table();
  1221. !     
  1222.       seq_no = getpid();
  1223.   
  1224.       host = NULL;
  1225. --- 42,50 ----
  1226.       extern char *getenv(), **hes_resolve();
  1227.       
  1228.       initialize_ureg_error_table();
  1229. !     initialize_krb_error_table(); 
  1230. !     initialize_sms_error_table();
  1231. !    
  1232.       seq_no = getpid();
  1233.   
  1234.       host = NULL;
  1235. *** /site/mar/moira/clients/moira/dcmmaint.c    Sat Mar 17 17:10:21 1990
  1236. --- clients/moira/dcmmaint.c    Tue Mar 27 11:41:27 1990
  1237. ***************
  1238. *** 1,4 ****
  1239. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/dcmmaint.c,v 1.7 90/03/17 17:10:15 mar Exp $
  1240.    *
  1241.    * Copyright 1987, 1988 by the Massachusetts Institute of Technology.
  1242.    * For copying and distribution information, please see the file
  1243. --- 1,4 ----
  1244. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/dcmmaint.c,v 1.8 90/03/27 11:40:41 mar Exp $
  1245.    *
  1246.    * Copyright 1987, 1988 by the Massachusetts Institute of Technology.
  1247.    * For copying and distribution information, please see the file
  1248. ***************
  1249. *** 164,170 ****
  1250.       argv[SC_INTERVAL] = strsave("1440");
  1251.       sprintf(tmp, "/tmp/%s.out", name);
  1252.       argv[SC_TARGET] = strsave(tmp);
  1253. !     sprintf(tmp, "/u1/mr/bin/%s.sh", name);
  1254.       argv[SC_SCRIPT] = strsave(tmp);
  1255.       argv[SC_TYPE] = strsave("UNIQUE");
  1256.       argv[SC_ENABLE] = strsave("1");
  1257. --- 164,170 ----
  1258.       argv[SC_INTERVAL] = strsave("1440");
  1259.       sprintf(tmp, "/tmp/%s.out", name);
  1260.       argv[SC_TARGET] = strsave(tmp);
  1261. !     sprintf(tmp, "%s/%s.sh", BIN_DIR, name);
  1262.       argv[SC_SCRIPT] = strsave(tmp);
  1263.       argv[SC_TYPE] = strsave("UNIQUE");
  1264.       argv[SC_ENABLE] = strsave("1");
  1265. *** /site/mar/moira/clients/moira/attach.c    Sat Mar 17 17:10:07 1990
  1266. --- clients/moira/attach.c    Thu Apr  5 17:36:09 1990
  1267. ***************
  1268. *** 1,5 ****
  1269.   #if (!defined(lint) && !defined(SABER))
  1270. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/attach.c,v 1.21 90/03/17 17:09:54 mar Exp $";
  1271.   #endif
  1272.   
  1273.   /*    This is the file attach.c for the MOIRA Client, which allows a nieve
  1274. --- 1,5 ----
  1275.   #if (!defined(lint) && !defined(SABER))
  1276. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/attach.c,v 1.23 90/04/05 17:35:57 mar Exp $";
  1277.   #endif
  1278.   
  1279.   /*    This is the file attach.c for the MOIRA Client, which allows a nieve
  1280. ***************
  1281. *** 13,19 ****
  1282.    *
  1283.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/attach.c,v $
  1284.    *      $Author: mar $
  1285. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/attach.c,v 1.21 90/03/17 17:09:54 mar Exp $
  1286.    *    
  1287.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1288.    *
  1289. --- 13,19 ----
  1290.    *
  1291.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/attach.c,v $
  1292.    *      $Author: mar $
  1293. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/attach.c,v 1.23 90/04/05 17:35:57 mar Exp $
  1294.    *    
  1295.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1296.    *
  1297. ***************
  1298. *** 244,250 ****
  1299.   char ** info;
  1300.   Bool name;
  1301.   {
  1302. !     char temp_buf[BUFSIZ], *newname;
  1303.       int fsgroup = 0;
  1304.   
  1305.       Put_message("");
  1306. --- 244,250 ----
  1307.   char ** info;
  1308.   Bool name;
  1309.   {
  1310. !     char temp_buf[BUFSIZ], *newname, access_type[32];
  1311.       int fsgroup = 0;
  1312.   
  1313.       Put_message("");
  1314. ***************
  1315. *** 276,282 ****
  1316.       if (!fsgroup) {
  1317.       GetValueFromUser("Filesystem's Pack Name", &info[FS_PACK]);
  1318.       GetValueFromUser("Filesystem's Mount Point", &info[FS_M_POINT]);
  1319. !     GetValueFromUser("Filesystem's Default Access", &info[FS_ACCESS]);
  1320.       }
  1321.       GetValueFromUser("Comments about this Filesystem", &info[FS_COMMENTS]);
  1322.       GetValueFromUser("Filesystem's owner (user)", &info[FS_OWNER]);
  1323. --- 276,284 ----
  1324.       if (!fsgroup) {
  1325.       GetValueFromUser("Filesystem's Pack Name", &info[FS_PACK]);
  1326.       GetValueFromUser("Filesystem's Mount Point", &info[FS_M_POINT]);
  1327. !     sprintf(access_type, "fs_access_%s", info[FS_TYPE]);
  1328. !     GetTypeFromUser("Filesystem's Default Access", access_type,
  1329. !             &info[FS_ACCESS]);
  1330.       }
  1331.       GetValueFromUser("Comments about this Filesystem", &info[FS_COMMENTS]);
  1332.       GetValueFromUser("Filesystem's owner (user)", &info[FS_OWNER]);
  1333. *** /site/mar/moira/clients/moira/menu.h    Tue Dec 27 18:49:43 1988
  1334. --- clients/moira/menu.h    Mon Apr  9 18:03:14 1990
  1335. ***************
  1336. *** 1,3 ****
  1337. --- 1,5 ----
  1338. + /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/menu.h,v 1.2 90/04/09 18:02:53 mar Exp $ */
  1339. + 
  1340.   #define MAX_ARGC 16        /* Maximum argument count per line */
  1341.   #define MAX_ARGLEN 128        /* Maximum length of an argument */
  1342.   #define MAX_LINES 16        /* Maximum number of lines per menu */
  1343. ***************
  1344. *** 40,42 ****
  1345. --- 42,48 ----
  1346.   #define NULLMENU ((struct menu *) 0)
  1347.   #define SUBMENU(cmd, doc, menu) { NULLFUNC, menu, 1, { { cmd, doc } } }
  1348.   #define SIMPLEFUNC(cmd, doc, func) { func, NULLMENU, 1, { { cmd, doc } } }
  1349. + 
  1350. + /* Unused words found on parsed command line */
  1351. + extern int parsed_argc;
  1352. + extern char **parsed_argv;
  1353. *** /site/mar/moira/clients/moira/menu.c    Sat Mar 17 17:12:09 1990
  1354. --- clients/moira/menu.c    Mon Apr  9 18:04:06 1990
  1355. ***************
  1356. *** 5,11 ****
  1357.    *
  1358.    * $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/menu.c,v $
  1359.    * $Author: mar $
  1360. !  * $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/menu.c,v 1.27 90/03/17 00:19:53 mar Exp $
  1361.    *
  1362.    * Generic menu system module.
  1363.    *
  1364. --- 5,11 ----
  1365.    *
  1366.    * $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/menu.c,v $
  1367.    * $Author: mar $
  1368. !  * $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/menu.c,v 1.28 90/04/09 18:03:56 mar Exp $
  1369.    *
  1370.    * Generic menu system module.
  1371.    *
  1372. ***************
  1373. *** 18,24 ****
  1374.    */
  1375.   
  1376.   #ifndef lint
  1377. ! static char rcsid_menu_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/menu.c,v 1.27 90/03/17 00:19:53 mar Exp $";
  1378.   
  1379.   #endif lint
  1380.   
  1381. --- 18,24 ----
  1382.    */
  1383.   
  1384.   #ifndef lint
  1385. ! static char rcsid_menu_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/menu.c,v 1.28 90/04/09 18:03:56 mar Exp $";
  1386.   
  1387.   #endif lint
  1388.   
  1389. ***************
  1390. *** 63,68 ****
  1391. --- 63,70 ----
  1392.   #define NULLMS ((struct menu_screen *) 0)
  1393.   
  1394.   Menu *top_menu;            /* Root for command search */
  1395. + int parsed_argc;        /* used by extern routines to get additional */
  1396. + char **parsed_argv;        /*   comand line input */
  1397.   
  1398.   /*
  1399.    * Hook function to cause error messages to be printed through
  1400. ***************
  1401. *** 212,221 ****
  1402.       int toggle_logging();
  1403.       
  1404.       /* Entry function gets called with old menu_screen still current */
  1405. !     if (m->m_entry != NULLFUNC)
  1406.       if (m->m_entry(m, margc, margv) == DM_QUIT)
  1407.           return DM_NORMAL;
  1408.   
  1409.       /* The following get run only in curses mode */
  1410.       if (cur_ms != NULLMS) {
  1411.       /* Get a menu_screen */
  1412. --- 214,230 ----
  1413.       int toggle_logging();
  1414.       
  1415.       /* Entry function gets called with old menu_screen still current */
  1416. !     if (m->m_entry != NULLFUNC) {
  1417.       if (m->m_entry(m, margc, margv) == DM_QUIT)
  1418.           return DM_NORMAL;
  1419. +     if (parsed_argc > 0) {
  1420. +         margc = parsed_argc + 1;
  1421. +         margv = --parsed_argv;
  1422. +     }
  1423. +     }
  1424.   
  1425. +     parsed_argc = 0;
  1426. + 
  1427.       /* The following get run only in curses mode */
  1428.       if (cur_ms != NULLMS) {
  1429.       /* Get a menu_screen */
  1430. ***************
  1431. *** 274,295 ****
  1432.       /* This is here because we may be coming from another menu */
  1433.       if (cur_ms != NULL)
  1434.           touchwin(my_ms->ms_screen);
  1435. !     /* Get a command */
  1436. !     if (!Prompt_input("Command: ", buf, sizeof(buf))) {
  1437. !         if (cur_ms == NULLMS &&
  1438. !         feof(stdin))
  1439. !           sprintf(buf, "quit");
  1440. !         else
  1441.             continue;
  1442.       }
  1443. -     /* Parse it into the argument list */
  1444. -     /* If there's nothing there, try again */
  1445. -     /* Initialize argv */
  1446. -     for (argc = 0; argc < MAX_ARGC; argc++)
  1447. -         argv[argc] = argvals[argc];
  1448. - 
  1449. -     if ((argc = Parse_words(buf, argv, MAX_ARGLEN)) == 0)
  1450. -         continue;
  1451.       if ((line = atoi(argv[0])) > 0 && line <= m->m_length) {
  1452.           command = &m->m_lines[line - 1];
  1453.       }
  1454. --- 283,314 ----
  1455.       /* This is here because we may be coming from another menu */
  1456.       if (cur_ms != NULL)
  1457.           touchwin(my_ms->ms_screen);
  1458. !     if (margc > 1) {
  1459. !         /* Initialize argv */
  1460. !         for (argc = 0; argc < MAX_ARGC; argc++)
  1461. !           argv[argc] = argvals[argc];
  1462. !         argc = margc - 1;
  1463. !         for (i = 1; i < margc; i++)
  1464. !           strcpy(argvals[i - 1], margv[i]);
  1465. !         margc = 0;
  1466. !     } else {
  1467. !         /* Get a command */
  1468. !         if (!Prompt_input("Command: ", buf, sizeof(buf))) {
  1469. !         if (cur_ms == NULLMS &&
  1470. !             feof(stdin))
  1471. !           sprintf(buf, "quit");
  1472. !         else
  1473. !           continue;
  1474. !         }
  1475. !         /* Parse it into the argument list */
  1476. !         /* If there's nothing there, try again */
  1477. !         /* Initialize argv */
  1478. !         for (argc = 0; argc < MAX_ARGC; argc++)
  1479. !           argv[argc] = argvals[argc];
  1480. ! 
  1481. !         if ((argc = Parse_words(buf, argv, MAX_ARGLEN)) == 0)
  1482.             continue;
  1483.       }
  1484.       if ((line = atoi(argv[0])) > 0 && line <= m->m_length) {
  1485.           command = &m->m_lines[line - 1];
  1486.       }
  1487. ***************
  1488. *** 349,354 ****
  1489. --- 368,375 ----
  1490.                     argvals[argc], sizeof(argvals[argc])))
  1491.           goto punt_command;
  1492.       }
  1493. +     parsed_argc = argc - command->ml_argc;
  1494. +     parsed_argv = &(argv[command->ml_argc]);
  1495.       if (command->ml_function != NULLFUNC) {
  1496.           /* If it's got a function, call it */
  1497.           quitflag = command->ml_function(argc, argv);
  1498. ***************
  1499. *** 368,377 ****
  1500.           }
  1501.           if (m->m_exit != NULLFUNC)
  1502.           m->m_exit(m);
  1503.           return (DM_QUIT);
  1504.       }
  1505.       punt_command:
  1506. !     ;
  1507.       }
  1508.   }
  1509.   
  1510. --- 389,399 ----
  1511.           }
  1512.           if (m->m_exit != NULLFUNC)
  1513.           m->m_exit(m);
  1514. +         parsed_argc = 0;
  1515.           return (DM_QUIT);
  1516.       }
  1517.       punt_command:
  1518. !     parsed_argc = 0;
  1519.       }
  1520.   }
  1521.   
  1522. *** /site/mar/moira/clients/moira/utils.c    Sat Mar 17 17:11:39 1990
  1523. --- clients/moira/utils.c    Mon Apr  9 18:06:24 1990
  1524. ***************
  1525. *** 1,5 ****
  1526.   #if (!defined(lint) && !defined(SABER))
  1527. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v 1.21 90/03/17 17:11:31 mar Exp $";
  1528.   #endif lint
  1529.   
  1530.   /*    This is the file utils.c for the MOIRA Client, which allows a nieve
  1531. --- 1,5 ----
  1532.   #if (!defined(lint) && !defined(SABER))
  1533. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v 1.25 90/04/09 18:05:03 mar Exp $";
  1534.   #endif lint
  1535.   
  1536.   /*    This is the file utils.c for the MOIRA Client, which allows a nieve
  1537. ***************
  1538. *** 11,17 ****
  1539.    *
  1540.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v $
  1541.    *      $Author: mar $
  1542. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v 1.21 90/03/17 17:11:31 mar Exp $
  1543.    *    
  1544.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1545.    *
  1546. --- 11,17 ----
  1547.    *
  1548.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v $
  1549.    *      $Author: mar $
  1550. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v 1.25 90/04/09 18:05:03 mar Exp $
  1551.    *    
  1552.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1553.    *
  1554. ***************
  1555. *** 262,268 ****
  1556.    *    Arguments: prompt - the prompt string.
  1557.    *                 buf, buflen - buffer to be returned and its MAX size?
  1558.    *                 default value for the answer.
  1559. !  *    Returns: the value returned by prompt_input.
  1560.    */
  1561.   
  1562.   int
  1563. --- 262,268 ----
  1564.    *    Arguments: prompt - the prompt string.
  1565.    *                 buf, buflen - buffer to be returned and its MAX size?
  1566.    *                 default value for the answer.
  1567. !  *    Returns: zero on failure
  1568.    */
  1569.   
  1570.   int
  1571. ***************
  1572. *** 274,279 ****
  1573. --- 274,288 ----
  1574.       char tmp[BUFSIZ];
  1575.       int ans;
  1576.   
  1577. +     if (parsed_argc > 0) {
  1578. +     parsed_argc--;
  1579. +     strncpy(buf, parsed_argv[0], buflen);
  1580. +     sprintf(tmp, "%s: %s", prompt, buf);
  1581. +     Put_message(tmp);
  1582. +     parsed_argv++;
  1583. +     return(1);
  1584. +     }
  1585. + 
  1586.       (void) sprintf(tmp, "%s [%s]: ", prompt, def ? def : "");
  1587.       ans = Prompt_input(tmp, buf, buflen);
  1588.       if (ans == 0) {
  1589. ***************
  1590. *** 387,393 ****
  1591.       Put_message("Please use a non-empty name.");
  1592.       else if (index(s, ' '))
  1593.       Put_message("You cannot use space (' ') in this name.");
  1594. !     else if (index(s, WILDCARD))
  1595.       Put_message("Wildcards not accepted here.");
  1596.       else
  1597.       return TRUE;
  1598. --- 396,402 ----
  1599.       Put_message("Please use a non-empty name.");
  1600.       else if (index(s, ' '))
  1601.       Put_message("You cannot use space (' ') in this name.");
  1602. !     else if (index(s, '*') || index(s, '?') || index(s, '['))
  1603.       Put_message("Wildcards not accepted here.");
  1604.       else
  1605.       return TRUE;
  1606. ***************
  1607. *** 465,471 ****
  1608.   {
  1609.       char buf[BUFSIZ];
  1610.   
  1611. !     if (PromptWithDefault(prompt, buf, BUFSIZ, *pointer) == -1)
  1612.       return(SUB_ERROR);
  1613.   
  1614.   /* 
  1615. --- 474,480 ----
  1616.   {
  1617.       char buf[BUFSIZ];
  1618.   
  1619. !     if (PromptWithDefault(prompt, buf, BUFSIZ, *pointer) == 0)
  1620.       return(SUB_ERROR);
  1621.   
  1622.   /* 
  1623. ***************
  1624. *** 803,809 ****
  1625.       }
  1626.       elem = (struct qelem *) malloc(sizeof(struct qelem));
  1627.       ce = (struct cache_elem *) malloc(sizeof(struct cache_elem));
  1628. !     ce->cache_name = tname;
  1629.       ce->cache_data = QueueTop(oelem);
  1630.       elem->q_data = (char  *)ce;
  1631.       AddQueue(elem, cache);
  1632. --- 818,824 ----
  1633.       }
  1634.       elem = (struct qelem *) malloc(sizeof(struct qelem));
  1635.       ce = (struct cache_elem *) malloc(sizeof(struct cache_elem));
  1636. !     ce->cache_name = strsave(tname);
  1637.       ce->cache_data = QueueTop(oelem);
  1638.       elem->q_data = (char  *)ce;
  1639.       AddQueue(elem, cache);
  1640. ***************
  1641. *** 849,856 ****
  1642.       return(GetTypeFromUser(prompt, tname, pointer));
  1643.       }
  1644.       for (elem = GetTypeValues(tname); elem; elem = elem->q_forw) {
  1645. !     if (!cistrcmp(elem->q_data, *pointer))
  1646.           return(SUB_NORMAL);
  1647.       }
  1648.       sprintf(buffer, "\"%s\" is not a legal value for %s.  Use one of:",
  1649.           *pointer, tname);
  1650. --- 864,873 ----
  1651.       return(GetTypeFromUser(prompt, tname, pointer));
  1652.       }
  1653.       for (elem = GetTypeValues(tname); elem; elem = elem->q_forw) {
  1654. !     if (!cistrcmp(elem->q_data, *pointer)) {
  1655. !         strcpy(*pointer, elem->q_data);
  1656.           return(SUB_NORMAL);
  1657. +     }
  1658.       }
  1659.       sprintf(buffer, "\"%s\" is not a legal value for %s.  Use one of:",
  1660.           *pointer, tname);
  1661. ***************
  1662. *** 865,873 ****
  1663.       argv[0] = tname;
  1664.       argv[1] = "TYPE";
  1665.       argv[2] = *pointer;
  1666. !     for (p = argv[2]; *p; p++)
  1667.           if (islower(*p))
  1668. !         *p = toupper(*p);
  1669.       if (stat = do_mr_query("add_alias", 3, argv, Scream, NULL)) {
  1670.           com_err(program_name, stat, " in add_alias");
  1671.       } else {
  1672. --- 882,892 ----
  1673.       argv[0] = tname;
  1674.       argv[1] = "TYPE";
  1675.       argv[2] = *pointer;
  1676. !     /* don't uppercase access flags.  Do uppercase everything else */
  1677. !     if (strncmp(tname, "fs_access", 9))
  1678. !       for (p = argv[2]; *p; p++)
  1679.           if (islower(*p))
  1680. !           *p = toupper(*p);
  1681.       if (stat = do_mr_query("add_alias", 3, argv, Scream, NULL)) {
  1682.           com_err(program_name, stat, " in add_alias");
  1683.       } else {
  1684. *** /site/mar/moira/doc/install.mss    Fri Mar 23 12:38:29 1990
  1685. --- doc/install.mss    Fri Apr  6 12:01:26 1990
  1686. ***************
  1687. *** 51,56 ****
  1688. --- 51,60 ----
  1689.   for the sake of backwards compatibility.  You probably don't need
  1690.   these.
  1691.   
  1692. + Define @b(INGRESVER) to be the major version number of the Ingres
  1693. + release you are using (i.e. 4, 5, or 6).  This is used by some server
  1694. + code which attempts to work around certain Ingres bugs.
  1695. + 
  1696.   At the end of the file are a number of defines of filenames and
  1697.   directories that the server will use.  These directories are referred
  1698.   to by name below.  You may change them to arrange the disk usage on
  1699. *** /site/mar/moira/doc/install.doc    Fri Mar 23 12:38:28 1990
  1700. --- doc/install.doc    Mon Apr  9 22:25:28 1990
  1701. ***************
  1702. *** 46,52 ****
  1703.         for the sake of backwards compatibility.  You  probably  don't  need
  1704.         these.
  1705.   
  1706. !    6. At  the  end  of  the  file are a number of defines of filenames and
  1707.         directories that  the  server  will  use.    These  directories  are
  1708.         referred  to by name below.  You may change them to arrange the disk
  1709.         usage on your Moira server differently.
  1710. --- 46,56 ----
  1711.         for the sake of backwards compatibility.  You  probably  don't  need
  1712.         these.
  1713.   
  1714. !    6. Define  INGRESVER  to  be  the  major  version  number of the Ingres
  1715. !       release you are using (i.e. 4, 5, or 6).    This  is  used  by  some
  1716. !       server code which attempts to work around certain Ingres bugs.
  1717. ! 
  1718. !    7. At  the  end  of  the  file are a number of defines of filenames and
  1719.         directories that  the  server  will  use.    These  directories  are
  1720.         referred  to by name below.  You may change them to arrange the disk
  1721.         usage on your Moira server differently.
  1722.